home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / tests / uil.test < prev   
Text File  |  1995-06-29  |  2KB  |  90 lines
  1.  
  2. if {[string compare test [info procs test]] == 1} then \
  3.   {source defs}
  4.  
  5. # set VERBOSE 1
  6. # set INTERACTIVE 1
  7.  
  8. set uil_test 1
  9. global x
  10.  
  11.  
  12. #############
  13. # starts here
  14. #############
  15.  
  16. xtAppInitialize -class List
  17. . setValues -allowShellResize true
  18.  
  19. if {$_Tm_UIL} {
  20.     # we are compiled with UIL support
  21.  
  22.     test uil-1.1 {uil compile} {
  23.     global x
  24.  
  25.         if {[catch {exec uil hello.uil -o hello.uid}] != 0} {
  26.             set msg "no UIL compiler"
  27.         } else {
  28.             . mrmOpenHierarchy hello.uid
  29.             . mrmFetchWidget hello_main
  30.             set msg "uil compiler"
  31.         }
  32.         set msg
  33.     } {uil compiler}
  34.     
  35.     if {$msg == "uil compiler"} {
  36.         test uil-2.1 {widget creation} {
  37.         global x
  38.  
  39.             if {[info commands .hello_main.hello] != ""} {
  40.             set x "widget exists"
  41.             } else {
  42.             set x "widget not created"
  43.             }
  44.         } {widget exists}
  45.         
  46.         if {$x == "widget exists"} {
  47.             # perform the rest of the tests
  48.             test uil-3.1 {uil callback} {
  49.                 .hello_main.hello callActionProc Arm() \
  50.                     -type ButtonPress \
  51.                     -x 5 -y 5
  52.                 set uil_test
  53.             } {0}
  54.             
  55.             test uil-4.1 {setting uil widget resource} {
  56.                 .hello_main.hello setValues -width 40
  57.                 .hello_main.hello getValues -width w
  58.                 set w
  59.             } {40}
  60.  
  61.         test uil-5.1 {widget method for list} {
  62.         .hello_main.alist deleteAllItems
  63.         .hello_main.alist addItem abcd 0
  64.         .hello_main.alist getValues -items items
  65.         set items
  66.         } {abcd}
  67.         }
  68.  
  69.     test uil-6.1 {fetch widget override} {
  70.             . mrmFetchWidgetOverride hello_main hello_second
  71.             if {[info commands .hello_second.hello] != ""} {
  72.                 set x "widget exists"
  73.             } else {
  74.                 set x "widget not created"
  75.             }
  76.         } {widget exists}
  77.     }
  78. }
  79.  
  80. #############
  81. # Finish up #
  82. #############
  83. if { ! $INTERACTIVE} {
  84.   if {[info commands .hello_main] != ""} {
  85.     .hello_main destroyWidget
  86.   }
  87. } else {
  88.   . mainLoop
  89. }
  90.